unit kwEnv;

interface

uses SysUtils, kwModel;

function Environment : TkwEnvironment;

implementation

var
  FEnvironment : TkwEnvironment = nil;

function Environment : TkwEnvironment;
begin
  if not Assigned(FEnvironment) then
    FEnvironment := TkwEnvironment.Create();
  Result := FEnvironment;
end;

initialization

finalization
  FreeAndNil(FEnvironment);

end.
